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it COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS URESERVEDS 


Hd ae SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE yee? AND COPIED 
i Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
hl INCL USION OF THE ABOVE pt NOTICE. THIS SOFTWARE OR ANY OTHER 
He COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 

ITY FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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00 

bo¢ 

00 '++ 

i } FACILITY: General Utility Library 

003 ABSTRACT: 

ORs LIBSRENAME_FILE renames one or more files. 

bos ! ENVIRONMENT: User mode - AST reentrant 

005 AUTHOR: Steven B. Lionel, CREATION DATE: 13-July-1982 

904 MODIFIED BY: 

004 i 1-001 = Original. SBL 13-July-1982 

Boe 1-002 - ode related ft) filespec argument. Pass FAB to confirm-routine. 
004 i 1-003 - Pass error ceed code to error-routine. SBL Vi-Bey~ 1289 
004 ! 1-004 = Allow for new argument to LIBSF Itt SCAN. BLS 6-FEB-1984 
004 ! 1-005 - Correct related name string Rr 5), Ag. Add new argument 
004 ! for filescan content. BLS 5-m 

0050 ' 1-006 - Parse the nul L string after cai ing file_scan to free up 
B8a) internal RMS context. BLS 9-J 

0088 , 
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11 Bliss-32 
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5 ? : } XSBTTL ‘Declarations’ 

: §7 1 | PROLOGUE FILE: 

| & oii 

8 9 S238 1 

: 29 ? 4 } REQUIRE ‘RTLIN:LIBPROLOG'; ' Switches, PSECTs, macros, etc. 
3 o¢ + a eB 

; 6 1 ¢ 1 ! LINKAGES: 

3 64 01 3 

; 65 0134 1! NONE 

; 4] 8 a. =e ; 
; 6 1 $ 1 ! TABLE OF CONTENTS: 

; 668 4 1! 

3 69 138 «#1 

; 70 0139 1 FORWARD ROUTINE 

; 71 0140 1 LIBSRENAME WATLE. ! Rename one or more files 

3 7 0141 1 bo RENAME : NOVALUE, ' Rename a file 

ee 0145 1 RERAME try pNOVALUE. ' Error routine 

; 0143 1 COPY_RESULTANT_NAME, ' Copy resultant filename 

3 75 0144 1 RENAME SANDLER? ! Condition handler 

3 76 0145 1 

s 77 0146 1! 

: 78 0147 1 ! MACROS: 

3 79 0148 1! 

} 80 0149 1! NONE 

; 81 0150 1! 

3 82 0151 1 ! EQUATED SYMBOLS: 

; 85 9136 1! 

3 84 015 .% NONE 

;: 0154 1! 

: 686 0155 1 ! FIELDS: 

: 87 9138 . 3 

: 88 015 1 

; 6889 0158 1 !¢ 

; BP 0159 1 ! Define bit fields of FLAGS longword. 

3 91 0160 1 !- 

3 9 0161 1 

; g 8166 1 FIELD 

3 94 016 1 FLAGS FIELDS = 

3 95 0164 1 SET 

;s © 0165 1 

; 97 0166 1 V_NONEW_VERSION = £8.91 0) ' Don't create new version 

; 98 167 V~RESERVED = £0:1.31,05 i Reserved - MBZ 

; 100 19? 1 TES; 

: 101 170 1 

3 106 rete 

; 10 176 1 ! OWN STORAGE: 
: He te eo 

: 105 174 #1! NONE 

: 106 176 1! 

: 10 176 1 | EXTERNALS: | 
: 108 wr | 
; 109 178 1 

: 110 17 1 EXTERNAL ROUTINE 

s 911 180 1 LIBSANALYZE_SDESC_R2: LIBSANALYZE_SDESC_R2$LINKAGE, 
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SRENAME_FILE Rename one or more files 
LIBSRENAME_FILE = Rename one or more files 


Rename one or more files’ 


ANT. 
ULTANT—N 
AN_CONTEXT 


NAME: 
E: 


'e¢ 


REF BLOCK f. Byte: 
REF BLOCK LC, BYTEJ, 


H 7 
1er$ep-198e 12:99:19 Etat OSneSi tenenane 082, 1 


, BYTE], ! Old file specification 
‘ ' New file specification 
BYTE). ' Default old file specification 
BYTE ' Related old file specification 
(FLAGS _FIELDS), ! Option flags 


alled on successful rename 
' Called on error 

' Called for conformation 

' User argument 

' Returned old filename 

' Returned new filename 

' Context for filescan 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


ret_status.wl LIBSRENAME_FIL 

D C.rt 
LESPEC.rt.dx) 
LG SPEC rt aad 
r 
UT 
IN 


INE.szem.r] 
E.fzemlc.r] 


LIBSRENAME_FILE changes the name(s) of one or more files. 
similar in function to the DCL RENAME command. 


I 
The specification 
of the file(s) to be renamed may include wild cards. 


E ¢ 
-dx, NEW_FILESPEC.rt.dx 
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OUTINE.fzemlc.r) 
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ees ese 8 ese ess 


+ 
FORMAL PARAMETERS: 
OLD_FILESPEC 


NEW_F ILESPEC 


DEFAULT _FILESPEC 


RELATED_F ILESPEC 


CAN_CONTEXT.rlu.w 7 a 


The file specification of the file(s) 
to be renamed. Passed by descriptor. 
The specification may include wild cards. 


The file specification for the new file 
name(s). Passed by descriptor. 


The default file specification of the file(s) 
to be renamed. Passed by descriptor. This 
is an optional parameter; if omitted, the 
default is the null string. 


The related file specification of the 

files to be renamed. Pogeed by descriptor. 

If omitted, the default is the null string. 
Input file parsing’ is used. 
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ame one or more files 
SRENAME _FILE = Rename one or more files 


FLAGS 


SUCCESS_ROUTINE 


ERROR_ROUT INE 


ibesen-1964 1:18:59 


havior. This is an optional parameter, 
the default is” that all flags are clear. 


V_NONEW_ VERSION = Bit 0 
In the cose where NEW. FILESPEC does 
not opet fy a version number, controls 
whether or not a new version number for 
the output file is to be assigned. 


If clear, the default, the anew ste 

has a version number one higher t 

any previously existing file of the. same 

e name and file type. If set, the 

version number of the input file is used; 
f a file already exists with the same 

file name, type and version number, an 

error is returned. 


ae is equivalent to the 
/NONEW VERSION qualifier of the 
DCL RENAME command. 


- The entry mask of a routine te aS ved 


each successful nw passe ay fe ence. 
zoe cen (ne format of the soeces ROUTINE is 
as follo 
CALL SUCCESS_ROUTINE ( 
old_fileSpec.rt.ds, 
new_filespec.rt.ds, 
user_arg.rz) 


old_filespec - The _ resultant file sgect fication 


of the ig ANT NAA renamed. 
"8 agree 
coed to pass the string 


to SUCCESS. ROU ix. Otherwise, 
a class S$, type T string is passed. 


new_filespec - The RMS resultant ane eee 


of the newly renam 
NEW acme! 
used to pass the str 


it 
to SUCCESS. ROU in. Othervise, 
ng is passed. 


a class S, type T str 


user_arg - value of user arg passed 
© LIBSRENAME F is passed 
= SUCCESS AROOTIN NE using the 
same mechanism as was used to 
pass it to LIBSRENAME_FILE. 


The entry mask of a routine to call when 

a file error is detected, passed AY ref Fence. 
The function value returned by HH e reus iee 
determines whether or not more files will 

be processed. 


AX-11 Bliss-32 v4.0 
LIBRTL.SRC LIGRENAME . y 2;1 
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E was specified, 


T_NAME was ~ ne ag 
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new_filespec - 
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error_source - 


rs 


user_arg ~ 


If ERROR_ROUTINE 
a failure status 
will cease immed 
will return with 


If ERROR_ROUTINE 


PPP AAAMIT 
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ret.stetys, 


then processing of f 


yh btn one or more files 1b-Sen-1984 93:49:39 ATBRTL SREILTORENAME 6821 


The calling format of the ERROR_ROUTINE is 


wle.v = ERROR_ROUTINE ( 
espec.rt.ds, 


new _filespec.rt.ds, 
RMS_sts.ric.r 

RMS _stv.ric.r, 
error_source.rl.r, 
user_arg.rz2) 


The RMS cpews tone file specification 
of the file being renamed 

when the error occured. If 
OLD_RESULTANT_NAME was specified, 

it 1s used to pass the string 

to ERROR_ROUTINE. Otherwise, 

a class S$, type T string is passed. 


The RMS resultant file specification 
of the new file name aerng used 

when the error occured. f 
NEW_RESULTANT_NAME was specified, 

it Ts used to pass the string 

to ERROR_ROUTINE. Otherwise, 

a class $, type T string is passed. 


The prseery condition code 
which describes the error 
that occurred. 


The secondary condition code 
which describes the error 
that occurred. 


An integer code that indicates 
at what point the error was 
found. The values are: 

0 = Error searching for 


old-file 
1 = Error parsing new 
espec 
2 = Error renaming file 


The value of user_arg passed 
to LIBSRENAME FILE is passed 
to ERROR_ROUTINE using the 
same mechanism as was used to 
pass it to LIBSRENAME_FILE. 


returns @ success status 

les will continue. [ff 

is returned shen, process tng 
E_FILE 


iately and Lfesre 


an error status. 
is not specified, 


ENAME FILE gt Be one or more files Sep-1984 7$ AX-11 Bliss-32 V4.0 Page 7 4! 
it LIBSRENAME_FILE = Rename one or more files 1$-se0-198 93: 48: 3 LIBRTL.SRC LIBRENAME . yf 2;1 ’ (3) 1-5 
H 5 » FF LIBSRENAME_FILE will return to its caller with ; 
3 4 1! he most séyere of ne error statuses geountored a 
; 29 9 1! while renaming the files. Otherwise, . | 
; a8 $ 1! ERROR_ROUTINE is calles. for an error, the ° 
; 67 1! success status U1 ERRROUCAL is returned. ; | 
; 300 1! Note that ERROR_ROUTINE is not called for : | 
3 9} § ! errors related oy string copying. : j 
3 08 7. Se CONF IRM_ROUTINE - The Beit mask of a routine to call before ‘ 
; 304 if 1! each file is renamed, passed by reference. 
; 305 73 1! The function value returned by the routine . 3 
3 88 74 «1! determines whether or not the file will be = | 
3 e : be renamed. i 
; 09 3 1! The calling format of CONFIRM_ROUTINE is ‘ 
; 310 78 1! as follows: . | 
3 351i 79 «1! ret_status.wlc.v = CONFIRM_ROUTINE ( . | 
; \§ 80 1! “old _filespec. rt.ds, i 
‘i 0381 1! new_filespec.rt.ds, i 
; 314 oes 1! old_FAB.rr.r, | 
3 1? tet : } user_arg.rz) =i 
3 9 O38s 73 old_filespec - The +y resultant lg specification ‘ 
; 318 dene 1! of t ile about to be . | 
; 319 0387 1! Fonaned. A as RESULTANT “ei . | 
3 0 4 1! was specifi if is used a 
; 1 0389 1! gore 5 the striae to CONF IRM_ ROUTINE. ; 

; i 9390 1 therwise, ass S, type T 3 | 
3 : 8 4! ; : string is passed. . | 
; 5 0398 1! new_filespec - The RMS resultant file specification : 
3 $ 0394 1! which the tL will be given. . | 
; 0395 1! If NEW. RESULT ANT e . 

; 328 0 96 1 | was specified, if is used t : | 
; 329 0397 1} pass the string to to CONF km. ROUTINE. : 
; 0398 1! therwise, ac ass S, type T : 
: i 0399 : string is passed. : 
; § 401 1! old_FAB - The address of the RMS FAB : | 
; 40¢ 1! that describes the file e | 
3 5 03 1! being renamed. You m : | 
3 06 1! erform an RMS SOPEN e : 
; 337 5 1! AB to obtain file attributes : | 
3 4 1! pu u need to eoceraine whether s | 
3 1! file should be renamed, : 
3 0 08 1! but you must close the file mI 
; 1 09 1! with SCLOSE before returning - | 
3 § 19 : to LIBSRENAME_FILE | 
: 4 \% 1: user_arg - The value of user_arg passed s 
3 5 15 1! to LIBSRENAME FILE is passed = | 
3 $ 1461! to EONF IR AROOTINE using the e | 
: 77 a same mechanism as was used to S | 
3 3 1g ! pass it to LIBSRENAME_FILE. : 
: 350 \8 1! f CONFIRM_ROUTINE returns success the file Z| 
; 351 19 13 s then renamed, otherwise that file is not 3: | 

| 
} 


ee - —_ =a 


Bae Se Be Se Se Ge Ge Se Fe Se Se Se Se Ge Se Se Ge Ge Fe Ge Ge Ge Ge Se Se Ge Se Sse Ge Se Fe Ge Ge Se Se Se Se Se FH Se Se Se Se Se Se Se FH Oe Ss Se Se Se Sees Be Sees 


IBSRENAME_FILE Rename one or more files 18-56 Sep-1984 75 AX-11 Bliss-32 V4.0-74 P 
it LIBSRENAME_FILE = Rename one or more files Haat yi 93: 48: 33 CTARTL” SR REIL 16RE NAME .852;1 — (3 
renamed. 
USER_ARG - A value passed to SU 


UCCESS_ROUTINE, 
F IRM_ROUTINE = 

ime They are called. Whatever mechanism 

s used to pass USER_ARG to UTBSRENAME Fie is 
weed to pass it to the action routine.” s 
is an optional parameter, if omitted, zero 


C 
ERROR ere TINE and CON 


vy 
OONOULS wry 


d, 
l, 
4 
d, 
4 
4 
4 
rs rs is passed by immediate value. 
$6 4 OLD_RESULTANT_NAME - sptring into which is written the old ted wquak tant 
6 4 file BERENARE OF iLE n of the last file grocess 
64 by ey E_FILE. Passed by descr ae§ 
65 8 This is an optional parameter. If present, 
66 4 it is used to store the filespec passed to 
67 04 the action routines instead of a default 
o8 ne class S, type T string. 
70 4 NEW_RESULTANT_NAME - A string into which is written the new RMS resultant 
71 043 file s een rices tee of the last file processed 
a 044 rh Ly RENAME gi ite: Passed by descriptor. 
7 044 , s an optional parameter. If present, 
74 044 is used to store the filespec passed to 
75 044 t. action routines instead of a default 
317 class S, type T string. 
3/8 FILE_SCAN_CONTEXT - The address of a longword, which 


initialized to 0 before catting LISSRENANE FILE. 
This eentent is used ~ at ILE_SCAN to retain 
rower ip OE input file related file context, and 


need onty be ag ey I if goon me © with multiple 
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044 
044 
044 
044 
80 044 
81 044 
Hy 045 
8 045 input files, as the DCL RENAME command does. 
84 bee The context Jlotetea® b LIBSFILE mSCAN while 
85 45 be deal Loe the LIBSRENAME_FILE requests ma 
¥] 045 e Goal focates by calling LIBSFILE_SCAN_EN 
045 after all calls to LIBSRENAME_FILE have been 
3 : completed. 
90 45 IMPLICIT INPUTS: 
91 45 
4 6 NONE 
g 46 
Be re IMPLICIT OUTPUTS: 
4] 464 NONE 
98 re COMPLETION STATUS: 
35 9 
400 68 porest successful completion 
401 9 ies'e OR RRDUCAL ess - error routine called. A file error occurred 
40 470 wy RROR_R Me ues called to handle the condition. 
40 71 LIBS_ INVSTRDES Invalid string descr preter. 
404 Lf: LIBS_IN Invalid erguaent. | f a8 as unset ined bits 
405 7 LIBS_ INVEILSPE Invalid file Speciticat on. LESPEC, neu. FILESPEC 
£06 47% or DEFAULT_OLD_FILESP EC ,conte : Woes than 255 "characters. 
40 75 LIBS_W ahi Wrong numbér of argumen 
408 476 LIB$"x Any error status from Cissscopy. XXX 
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4 SRENAME_FILE Rename one or more files Jon~sen~ 1386 93:49:38 AX-11 Bliss-32 V4.0-74 Page 9 
LIBSRENAME_FILE = Rename one or more files 14-Sep-1984 12:39:1 LIBRTL.SRCJLIBRENAME .852;1 (3) 
; 409 77 1! RMSS_xxx Any error status from RMS. If ERROR ROUTINE was not 3 
; 410 af8 1: spec fied, this ig the most severe of the RMS errors . 4 
3 $13 t44 ! which occurred while renaming the files. e 
: 418 7 1 i i SIDE EFFECTS: : 
: 415 4 : 1! The files specified are renamed. ‘ Q 
i 416 484 1} : 
: 41 0485 1 i-- s 4 
; 418 04 $ 1 ‘ 
> 419 4 BEGIN 2 3 
; 4 : " 5 14 :) 
: 4 : 490 | Because SRENAME does not perform wildcarding, we need to keep two : § 
; 4 0491 : separate FABs (and associated NAMs) for both the old filespec and ‘ § 
> 426 0492 ' the new filespec. OLDFAB (and OLDNAM) are passed to LIBSFILE_SCAN : § 
> 425 49 ! as the basis for the wildcard search. NEWFAB will be used in =? 
3 426 0494 | DO_LRENAME to do two SPARSEs on the new tilespec, using OLDFAB as : § 
; 427 0495 : input. Next the resultant filename from OLDFAB will be copied to : § 
3 428 0496 ! OLDFAB_R and the expanded filename from NEWFAB to NEWFAB_R. Then 2 § 
: § 3 0497 | the SRENAME will be done with OLDFAB_R and NEWFAB_R. 2 4 
; 431 0499 
3 $36 0500 LOCAL 
; 43 0501 OLDFAB: SFAB_DECL ! Old file's FAB 
: 434 050¢ OLDFAB_R: $FAB_DECL, i Old file's FAB for SRENAME 
: 435 838 NEWFAB: SFAB_DECL ' New file's FAB 
: 436 504 NEWFAB_R: S$FAB_DECL, i New file's FAB for SRENAME 
: 437 0505 OLDNAM: SNAM_DECL ! Old file's N 
; 438 0506 OLDNAM_R: SNAM_DECL, i Old file's NAM for $RRNAME 
; 439 0507 NEWNAM: SNAM_DECL ! New file's N 
: 440 0508 NEWNAM_R: SNAM_DECL, i New file's NAM for SRENAME 
3; 441 0509 RLF_NAM: SNAM_DE ' Related filespec NAM 
> 442 0510 OLD-ESN: VECTOR CNAMSC_MAXRSS, BYTE), i Old Expanded name 
3 443 0511 OLD_RSN: VECTOR CNAMSC_MAXRSS, BYTE), ! Old Resultant name 
> 444 3216 NEW_RSN: VECTOR CNAMSC"MAXRSS, BYTE], ! New Resultant name 
> 445 051 RLF-DESC : $BBLOCKCDSCSC_S_BLNI, ! Temp descriptor for RLF 
3 446 0514 WORST_ERROR, ! Worst error so far 
3 447 0515 INTERCEPT FLAG: VOLATILE, ! 1 if signals are to be intercepted 
; 448 0516 RET_STATUS; ! Return status 
3 449 517 
: 450 518 BUILTIN 
3 «6451 519 ACTUAL COUNT 
; 43¢ 05 0 NULLPARAME TER; | 
3 45 521 
> 454 8 § '¢ 
; 455 5 ! Establish RENAME_HANDLER as a handler which will convert signals 
; $26 524 ! to return statuses if INTERCEPT_FLAG is set. Note that BLISS 
3 tH : 5 automatically zeroes INTERCEPT_FLAG as a VOLATILE enable argument. 
3; 459 5 $ | 
: 460 528 ENABLE | 
3; 461 529 RENAME_HANDLER (INTERCEPT_FLAG); 
: re¢ | 530 
; 46 531 '¢ 
3: 6464 5 § ! Validate the argument count. 
3 6465 5 le 
| 
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7 
ne or more files 16-Sep-1984 :10: AX- - -0- 
ME_FILE = Rename one or more files 1 =300 71382 93:49:38 ; a snes teren ore 


LIBRTL.SR ENAME .B52; 1 


SLIBSVALIDATE_ARGCOUNT (2,12); 


: jal he FAB and NAM blocks. See DO_RENAME f ipti 
i of NEWFAB's DNA field, - or a description 


SFAB_INIT (FAB=OLDFAB, NAM=OLDNAM) ; 
SFAB_INIT (FAB=OLDFAB_R, NAM=OLDNAM_R, FNA=OLD_RSN); 
SFAB-INIT (FAB=NEWFAB, NAM=NEWNAM, 

BNA = veLiT BYTE (';#')); 
SFAB_INIT (FAB=NEWFAB_R, FNA=NEW_RSN, NAM=NEWNAM, FOP=(OFP)); 
Searcy ReAMianse-pacnEs asa name 

= = P+ 

SNAM_INIT (RAM=O D_RSN, ESS=RAMSC_MAXRSS, 


14 
Initialize WORST_ERROR to zero. It will be modified if errors occur. 


WORST_ERROR = 0; 
14 


i Set up OLDFAB for the old file specification. Return LIB$_INVFILSPE 
} if the string is longer than 358° cheracters. " 


BEGIN 
CAL 
OLD FILESPEC_LENGTH: WORD, ! Length of OLD FILESPEC strin 
STATUS; Est. 


! Status from LIBSANALYZE_SD 


STATUS = LIBSANALYZE_SDESC_R2 (O40 FILESPEC CO0,0,0,0); 
OLD_FILESPEC_LENGTH, OCDFAB CFABSL_FNAJ); 


IF NOT .STATUS 
RETURN .STATUS; 
IF .OLD_FILESPEC_LENGTH GTRU 255 
RETURN LIBS_INVFILSPE; 
OLDF AB CFABSB_FNS) = .OLD_FILESPEC_LENGTH; 
+ 


i Set up NEWFAB to refer to NEW FILENAME. Return LIBS_INVFILSPE 
! if the string is longer than 255 characters. 


ee ee? ce Me ee rap Pe. Pa ere i alan Th ee ae re ee ee eet eee 
| 
SRENAME _FILE n ore files 16-Sep-1984 93:30:38 AX-1 Oi leg ‘ v4. Page 3 


, B Rename one or m 1 <3 erat 
-006 LIBSRENAME_FILE = Rename one or more files -Sep- LIBRTL.SRCJLIBRENAME .B52;1 
3 ? 338 t= 
; 5 38 BEGIN 
3 § 594 
; 595 OCAL | 
; $28 239 NEW _FILESPEC_LENGTH, 
ae ; 0997 STATUS; ! Status from LIBSANALYZE_SDESC. 
; 2 1 0599 STATUS = LIBSANALYZE_SDESC_R2 ey FILESPEC (C0,0,0,0]; 
; 2 ¢ o's NEW_FILESPEC_LENGTH, NEWFAB CFABSL_FNAJ); 
; 2 4 ope IF_NOT .STATUS 
: 5 6 
; 238 604 RETURN .STATUS; 
s Sor 0605 
3 238 se IF_.NEW_FILESPEC_LENGTH GTRU 255 
; 540 0608 ; RETURN LIBS_INVFILSPE; 
; 541 0609 
; 24¢ 0610 3 NEWFAB CFABS$B_FNS)] = .NEW_FILESPEC_LENGTH; 
; 54 0611 END; 
; 544 061 
; 545 063 ‘+ 
: 546 0614 2 ! If DEFAULT_OLD_FILESPEC is present, set up the default name string 
: 547 0615 2 ! in OLDFAB fo réfer to it. 
; 548 0616 5 te 
; 549 0617 
; 550 0618 2 IF NOT NULLPARAMETER (3) 
3 3D 619 
3 22¢ 620 BEGIN 
oe 0621 
; 554 06 ; OCAL : 
3 399 06 3 DEFAULT_FILESPEC_LENGTH: WORD, ! Length of DEFAULT_FILESPEC string 
3 228 063s ; STATUS; ! Status from LIBSANALYZE_SDESC. 
; 358 0626 STATUS = LIBSANALYZE_SDESC_R2 (DEFAULT_FILESPEC (0,0,0,0); 
; 559 0627 ; DEFAULT_FILESPEC_LENGTA, OLDFAB CFABSL_DNAJ); 
; $60 0628 
; 561 +444 IF NOT .STATUS 
; 266 0630 
; 0631 RETURN .STATUS; 
; 564 boas 
i 965 0635 IF _.DEFAULT_FILESPEC_LENGTH GTRU 255 | 
3 56 boas RETURN LIBS_INVFILSPE; | 
; 569 be39 OLDFAB CFABS$B_DNS) = .DEFAULT_FILESPEC_LENGTH; 
; 570 0638 END; 
; $7} 0639 | 
5 a 0640 '¢ 
: BE vet ! If RELATED_FILESPEC is present, set up the related file specification 
3 ey ote :_in RLF_NAM to refer to it. 
i 376 644 | 
: oF 645 RLF _DESCCDSC$W_LENGTH] = 0; 
; 578 O66 RLF_DESC $43 St = DSCSK_DTYPE_T; 
; 579 064 RLF_DESCCDSC$B_CLASS) = DSCSK_CLASS_D; 


ir NOT NULLPARAMETER(12) 
; THEN OLDNAMCNAMSL_RLFJ = 0; 


i to be renamed. Pass as extra parameters 
\. These will be passed to DO_RENAME. 


LIBSFILE_SCAN (¢ 
OLDF AB 
DO_RENAME succe 
RERAME ERROR i Ere 
CIF AE TUALTCUNT () GEQU 12 THEN "FILE. °° 


WAAR PO PIPPI PINONNYDD 29 OO OO os 


' Input 


IBSRENAME _FILE Rename one or more files Sage 
-006 LIBSRENAME_FILE = Rename one or more files 14-Sep- 
3 64 RLF atte POINTER) = 0; 
: 1 rk IF a LLPARAMETER 
; ¢ 650 AND MRL PARARE TER. 2) 
: ga ne MEN BEGIN 
; 585 e38 
; 4586 654 LOCAL 
; 587 655 RELATED_FILESPEC_LENGTH: WORD, } Le 
; 588 Bo28 RELATED FILESPEC_ADDR, ! 
; 589 065 STATUS; ! St 
; 299 ety STATUS = LIBSANALYZE_SDESC_R2 (RELATED 
4 = 
; 236 0660 RELATED_F FILESPEC_ LENGTH, RELATE 
; rs 0661 ir NOT .STATUS ~ 
; 594 p96 HEN 
; 595 066 RETURN .STATUS; 
; 298 bees IF .RELATED_FILESPEC_LENGTH GTRU 255 
; 598 0666 THEN = Re 
; 599 0667 RETURN LIBS_INVFILSPE; 
; 600 0668 
; 601 0669 ! Must use LIBSGET VM since LIBSFILE_SC 
; 60 0670 STATUS = LIBSGET vain LATED FILESPEC-LE 
; 60 0671 RLF DESCEDSCSU LENGTH -RELATED_FICES 
3; © 067 CHSAOVE ( .RLF SDESCLDSCSue rr aestetois 
; 605 067 DSCS$A_POINTER 
; 606 0674 ay _NAMCNAMS$B_RSL at f- eeetiiiatttite LE 
; 607 0675 RLF “NAMCNAMSL _ “Real = F-DESCCOSCS$A_PO 
; 60 0676 § D> 
3; 609 0677 
; «61 0678 '+ 
ie 679 ! Verify that reserved bits aren't set in F 
; 6 680 In 
; 8 0681 
4 e B08 IF NOT NULLPARAMETER (5) 
; e pone IF .FLAGS CV_RESERVED] NEQ 0 
: 6 0686 RETURN LIB$_INVARG; 
3; © 0687 
; © 0688 ! 
3 6 0689 i af passin context to Lib$file_scan, then 
3 ° 0690 don't confuse things with a dummy related 
; 6 
; 6 
; © 
3; 6 
:; 6 
; 6 
; 6 
3; 6 
; 6 
; 6 
3; § 
: 6 
; 6 


Lengsh, of RELATED. FILESPEC string 
5 ss 
atus from LTBSANALYZE _SDESC. 


FILESPEC [0,0 
D_FILESPEC ORDERS 


AN may deallocate with FREE_VM 
NGTHRLF DESCE DSC$A. POINTER); 
PEC_LENGTH; 

D FILESPEC_ADDR, 


NGTH); 
INTER); 


LAGS, if present. 


ensure that we 
nam block 


+ 
i Call LIBSFILE SCAN, which will call DO_RENAME for each file that is 
be 


the other FAB 


t FAB 
es Ms pd 


utine 
CAN. CONTEXT ELSE 0), ! Context 
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me one or more file 


dD 8 
s 16-Sep-1984 :5 AX-11 Bliss-32 V4.0-7 
RENAME _FILE = Rename one or more files 12: Sep- 38 9}: 48 3 LIBRTL.SRCJLIBRENAME. é 2:1 
NEWFAB, ' FAB for seanse r Sneha new filename 
OLDFAB_R, ! Source FA 
NEWFAB_R, ' Dest _F Ap gt a SRENAM 
(IF NOT NULLPARAMETER (5) THEN .FLAGS £0, 3¢,0J ELSE “Oy ! Flags 
(IF ACTUALCOUNT () tty § THEN .SUCCESS ROUTINE ELSE 0),! Success routine 
(IF ACTUALCOUNT () GEQU 7 THEN .ERROR_ROUTINE ELSE 0) Error routine 
(IF ACTUALCOUNT () GEQU 8 THEN .CONFIRM_ROUTINE ELSE 6.1 Confirm routine 
(IF ACTUALCOUNT () GEQU 9 THEN .USER_A ARG ELSE 0) ! User argument 
(IF ACTUALCOUNT () GEQU 10 THEN .OLD-RESULTANT_NAME ELSE ). Old resultant name 
CIF ACTUALCOUNT () GEQU 11 THEN .NEWCRESULTANT_NAME ELSE 0) i New resultant name 
WORST_ERROR, ! Worst error So far 
INTERTEPT_FLAG); ! Signal intercept flag 


LIBSFREE_VM(RLF WESCLDSCoY LENGTH), 
- F_DESCLDSCSA. -POINTER]); !Deallocate temp descriptor 


i Parse the null string to deallocate any internal 
a RMS context. 


OLDNAMCNAMSV_SVCTX) = 0; 


OLDNAMCNAMSV— =SYNCH HK) = i; 


ococcecsco 


DFABLFABSB" DNS) 
SPARSE (FAB=OLDF AB) ; 


i" Return WORST_ERROR or SS$_NORMAL, as appropriate. 


IF .WORST_ERROR NEQ 0 
RET_STATUS = .WORST_ERROR 
RET_STATUS = SS$_NORMAL; 

RETURN .RET_STATUS; 


ELS 


END; ! End of routine LIBSRENAME_FILE 
-TITLE LIBSRENAME_FILE Rename one or more files 
-IDENT \1-006\ 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
2A 3B 00000 P.AAA: .ASCII \;*\ 
-EXTRN LIBSANALYZE_SDESC_R2 
-EXTRN LIBSFILE “ae LIBSGET_VM 
-EXTRN LIBSFREE-V (18 SCOPY~ or 
XTRN LIBSSCOP BYR "DK. LIB$SIG_TO_R 


Vw 
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SRENAME _F R files 16- Sep-19 :5 AX-11 Bliss-32 V4.0-74 Page 14 
eitit4 — LIBSRENAME FILE = Rename one or more files et 7 9}: ¥8: 39 LIBRTL.SRCILIGRENAME . B32;1 . RS 
-EXTRN LIBS_ERRROUCAL, LIBS_INVA : , 
“EXTRN LIBS-INVFILSPE, LIB$_WRO SNURARG : 
XTRN SYSSPARSE : 
007¢ 900 -ENTRY LIBSRENAME FILE Saxe Og R2,R3,R4,R5,R6 ; 0193 i} 
Sp rooguns on oe Bias, finns LR oa elt : . 
AE D4 00 OF CLRL INTERCEPT. *BLAG + 0487 ; 
6D O31D «CF : 01 MOVA gs, (FP) : : 1 
50 6C 03 é O06 SUBBS «6 #2, (AP), DIFF > 0535 : 4 
OA 1 OOO1A cmPB OFF, #16 : : 
08 1 9910 BLEQU 1$ : : | 
50 000000006 &F pO Ooi MOVL #LIBS$_WRONUMARG, RO : 4 
0050 8F 00 6E A 00 se 00 ; 1$ MOVCS #0, (SP), #0, #80, SRMS_PTR : 0542 } 
BO AD 5008 BF 80 90080 move =— #20685, SANS PIR ; 7] 
C6 AD 02 80 00 MOVB #5, RMS _PTRT22 : 3 1 
5B OAD SCFEGO. «OCD OE DOOR MOVA fe: SaAS PRS 40 e 
0050 8F 00 le cre 00 2 20084 moves. #0, (SP), #07 #80, S$RMS_PTR ; 0543 : 
FF60 CD 500 SF B0 inn MOVW #20483, $RMS_PTR : :] 
FF76 = CD 02 90 b0S6 MOVB » SRMS_PTRT22 ; : 1 
FF7F §©6CD 09 90 80054 mov » SRMS_PTR+ ; at 
BAB SHR PSE SORE ROMA SMART sencspraecs® : : 
0050 ««&F 00 bf 2 00 2c Hy MOVC 70, “(SP5, #0,-#80, SRMS_PTR : 0545 i } 
FF10 §©6CD HOS 8F B0 $007 MOVW #20483 . SRMS_PTR : 71 
FF26 CD 02 90 0007C¢ MOVB » SRMS_PTRT22 : 31 
FFeF CD 03 90 00081 move > $RMS-PTR#31 : : 1 
BB We BERR eile Bia tinge : 4 
0050 8F o ' ée reco 09 2 90098 movcS #0, (SP), #0, #80, SRMS_PTR ; 0546 : | 
FECO CD 5003 8F B0 0009 MOVW #20483, SRMS_PTR i 7] 
FECG cD 20000000 et b0 GOoAS HOVE #338 7bote anes PTR+4 | 
FEDF CD 05 $0 00088 ROVE. #9. SAMS Pins i ; : 3 
reef TTAB GE BPR UMAR, Ener : : 
0060 8F 00 6E ake 00 2¢ ance MOVC » (SPS, #0, “We *SRMS_ PTR : 0548 ; ! 
FE60 «CD «©6002 br 0 000CE Mov 124578, SRMS_PTR : : 
FE62 = CD 1 Be 0006 MNEGB #1, SRMS_PTRT : 3 | 
FE64 = CD 0114 CE 9E 000D MOVAB OLb_RSN SRMS_PTR+4 : : 
FEGA CD 6% BE Goes MNEGR  # ett : :] 
Hos OGRE ee SE RUE EWA BLP Aah Sener : : 
8F 00 in 6E ina 00 2c G0rs MOVC a0 “UePS, “ae “Hoe SRMS_PTR : 0550 | 
FEO) cD 6002 br 0 OFF mov #24578, Re PTR 3 
| ee nea : : 
FEOC CD 0114 CE 9€ 0011 MOVAB OLB _RSN, “$RRS Drast2 : :1 


SS ee eee ee Seal ee ee ee ee ae ee a he a ee pee 


IBSRENAME _FILE Rename one or more files 
-006 LIBSRENAME_FILE - nenene one or more files 
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AX-11 Bliss-32 V4.0 
LIBRTL.SRC LIBRENAME . 5 2;1 


#0, (SP), #0, #96, SRMS_PTR 
Fs SRMS PTR 
$_PTRE 
NEW -RSN sprnsrg es 
o Ren anes PIR+12 
OL ORR og PTR+16 
. 25,8 tt 136. $RMS_PTR 
424578, SRMS_PTR 
_PTRE 
NEU_R OASN, “$RMS PTR+4 
PTR+T0 
NEW sans “éans PrR+12 
7. (SP), a 198. °sRMs_PTR 
#24578 SRMS_PTR 
WORST_ERROR 
OLD FTLESPEC 
LIBSANA LYZE “§oesc _R2 
R2, OLDF Ages 
STATUS, 4$ 
OLD. FILESPEC_LENGTH, #255 
OLD -f ILESPEC _LENGTH, OLDFAB+S2 
NEW FILESPEC, 
yes NALYZE SDESC_R2 
WFAB+Z4 
NEW_FICESPEC_LENGTH, #255 


NEW FILESPEC LENGTH. NEWF AB+52 
(APY, # 


2(AP) 
DEFAULT FILESPEC RO 
LIBSANACYZE_SDESC_R2 


TATUS, 4$ 
DEFAULT _ FILESPEC_LENGTH, #255 
if ae Pia eENGTH. OLDFAB+53 


San 
(AP), #12 
48 (AP) 
8$ 


RELATED _F ILES PEC, R 
LIBSANACYZE_SDESC_R 
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$-sep-1964 01:10:59 YaNeit Blisg-32 y4.0-74g Page 


| 1BSRENARE . FILE Rename one or more files 1 
-006 LIBSRENAME_FILE = Rename one or more files 1 
1 0 MOVL RELAT D_FILESPEC_LENGTH : 
gf 24 EB : 4$: BLBS erarg § + 0661 
OOFF BF 3 81 i 5$: CHEW RELATED _FILESPEC_LENGTA, #255 + 0665 
50 000000006 &F 6 7 6$: OWL #LIBS_INVFILSPE, RO + 0667 
10 AE 9F OOC1F 7$ PUSHAB DESCe + 0670 
04 AE F é PUSHAB RSLATED. D FILespec _LENGTH ; 
000000006 00 02 F CALLS : 
0c AE 6E : 0 ¢ MOVW RELATED ihe LENGTH, RLF_DESC + 0671 
10 BE 5 OC AE MOVC3 LF DESC, (RELATED. FILESPEC_ADDR), : 0673 
0317 CE of AE 90 00 36 MOVB ate Fapeee RLF_NAM+3 + 0674 
0318 ce 10 AE 00 00 MOVL RLF rypestts, REF _NAM+4 + 0675 
0 6¢ 91 00242 8$ CMPB a + 0682 
15 1F 0024 BLSSU ; 
146 «AC D5 0 4 TSTL OC(AP) : 
10 1 4A BEQL : 
00 14 BC 1F 01 ED 0 46 CMPZV #1, #31, @FLAGS, #0 + 0684 
08 1 5 BEQL ; 
50 000000006 8F bo 0 34 MOVL #LIBS_INVARG, RO + 0686 
0c 6C 91 0025C 98 CMPB s+), #12 > 0692 
09 1F O025F BLSSU : 
30 AC 05 0261 TSTL  48(AP) ; 
04 13 00264 BEQL 10$ ; 
FE70 CD p4 0266 CLRL —- OLDNAM+16 + 0693 
08 AE 9F 0026A 10$:  PUSHAB INTERCEPT FLAG + 0700 
08 AE 9F 00260 PUSHAB WORST_ERROR : 
0B 6C 91 0027 CMPB ss (AP) , "#11 : 0714 
05 1F 0027 BLSSU 11 : 
2c =AC DD 0027 PUSHL NEW_RESULTANT NAME F 
¢ il 09 as: fem fap) : 
OA 6C 91 0027C 128:  CMPB (AP), #10 : 0713 
05 1F O027F BLSSU : 
28 AC DD 00281 PUSHL  OLD_RESULTANT_NAME : 
0 11 00 BRB 14$ F 
E ps 13$: CLRL -(SP) : 
09 ¢ 91 14$:  CMPB (AP), #9 : 0712 
5 Ff BLSSU ; 
24 AC DD 00 PUSHL USER_ARG F 
2 11 0 BRB 16$ ~ : 
E ps 15$:  CLRL -(SP) : 
08 6¢ 1 16$:  CMPB (AP), #8 : 0711 
1F 00297 BLSSU ; 
20 aC pp 99 PUSHL CONF IRM_ROUTINE : 
OF og 00505 178: te les) 
07 6¢ ef AQ 18$:  CMPB (AP), #7 : 0710 
1 OA H A Phish RROR_ROUTINE ; 
03 + BRB cos . ; 
E ps AA 198: CLRL = = (SP) ; 
06 6¢ 1 OO2AC 20$:  CMPB (AP), #6 : 0709 
1F OOOAF BLSSU 218 ; 
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IBSRENAME _FILE Rename one or more files 16-Sep-1984 01:10:5 AX-11 Bliss-32 V4.0-74 
1-006 LIBSRENAME_FILE = Rename one or more files 107380-1 382 93:49:79 CTARTL SRE LISRENAME.6 231 ~ i} 
18 AC DD 00281 PUSHL CESS_ROUTINE ; :] 
ik ern a : i} 
05 6¢ 83 Ba $}§ CMPB sé AP), #5 : 0708 :] 
A if 8B BLSSU $ : : 3 
14 AC dS B TSTL (AP) : 3 3 
0 C BEQL $ : : 3 
14 § DD ¢ PUSHL af LAGS : : 3 
11 C BRB 24 : : 1 
E 04 002C 3s CLRL ss = (SP) : 31 
FEC CD OOF C9 24$ PUSHAB NEWFAB_R : 0700 : 1 
FFG CD 9F 002CD PUSHAB OLDFAB_R : : 1 
FF CD OF D1 PUSHAB NEWFAB : : 1 
0c 6¢ 1 D5 CMPB (AP), #12 : 0704 : 3 
1F D8 BLSSU : : 1 
30 aC DD O02DA PUSHL PILE_SCAN CONTEXT : :1 
9 11 00200 BRB 26 F :] 
7 p4 DF 358: CLRL = (SP) : 31 
9000v CF 9F OO2E1 268: PUSHAB RENAME_ERROR + 0700 :1 
OO0Ov CF 9F 00265 PUSHAB DO_RENAME : 31 
B0 Ap 9F O02E9 PUSHAB F : :1 
000000006 00 10 FB 00 EC CALLS #16, LIBSFILE_SCAN : 71 
10 AE 9F OOF PUSH F_DESC+4 : 0719 :1 
10 AE 9F 00 r6 PUSHAB RLF -DESC : 0718 21 
000000096 00 FB OOF CALLS #2, LIBSFREE_VM ; 31 
FE93 CD 80 8F BA 0300 BICB2 #128, OLDNAMT51 + 0725 31 
FE6B 8 88 00306 BISB2 #8, OLDNAM+8 + 0726 1 
FE62 CD B4 00308 CLRW OLDNAM* 2 : 0730 1 
FE6A CD B4 0030F CLRW OLDNAM+10 ; 07¢9 31 
FE70 CD D4 00 13 CLRL  OLDNAM+1 : 0731 1 
E4 AD B64 0031 LRW OLDFAB+S : 0732 $7 
BO AD 9F OO31A PUSHAB OLDFAB : 0734 7 
000000006 00 01 FB 00310 CALLS #1, SYSSPARSE ; :1 
04 AE p 0 4 st ¥ RST_ERR : 0740 3 ! 
50 046 «AE oO 09 9 MOVE WORST_ERROR, RET_STATUS : 0742 : ! 
50 01 00 0032€ 278: MOVL #1, RET_STATUS + 0744 71 
04 00331 RET : 0748 31 
0000 00332 28$: - WORD foys nothing ; 0487 31 
50 08 ac 00 00 MOVL (AP), RO : 31 
50 04 Ag DO 00 MOVL  4(RO), RO ; 21 
F9D4 «= CO OOF C PUSHAB INTERCEPT_FLAG ; 31 
gt DD 49 PUSHL #1 ; 21 
E DD 0034 PUSHL SP ; 3:1 
7E 04 AC D 00344 MOVO 4(AP), =(SP) ; 71 
0000v CF 03 FB 00348 CALLS #3, RENAME_HANDLER ; 37 
04 00340 RET : 3 : 
; Routine Size: 846 bytes, Routine Base: _LIBSCODE + 0002 3 ! 
3 1 
21 
3 1 
7 
3 1 
3 7 
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Sep-1984 


1 ZSBITL "DO_RENAME - ¢ Menene a file’ 
sae! “1 —E DO_RENAM 


argument 
Old resul tent filename 
New resultant filename 
Unused here 
Intercept flag 


ARG, 
OLD RESULTANT NAME: REF BLOCK C, BYTE), 
NEW" +h LTANT_NAME: REF BLOCK , BYTE, 


UNU 
INTERCEPT FLAG: REF VECTOR C, LONG) 


DFAB: REF FAB DECL, ' Next input file FAB 
INUSED_1, ! Unused here 
UNUSED 2, ' Unused here 
SED_ ' Unused here 
NEWFAB? REF $FAB_DECL i FAB for $PARSE 
LDFAB_ R: REF $FAB_DECL, i Source. tor SRENAME 
NEWFAB_R REF S$FAB pest ' geet te oo E 
FLAGS: “BLOCK (4, BYTE) FIELD (FLAGS_FIELDS),! Option flags 
SUCCESS_ROUTINE, ! eceens “routine address 
UNUSED : Ynused 
CONF IRM_ROUTINE, ' Confirm routine address 
g User a 
i 
i 
i 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 '4¢ 

: ! FUNCTIONAL DESCRIPTION: 

1 This routine is called once for each file that LIBSFILE_SCAN 

1 finds. It renames the file described by OLDFAB to the Tilename 
: specified by NEWFAB. 

: ! CALLING SEQUENCE: 

1! DO_RENAME is called ¥ LIBSF CAN with the same arguments as 
: IBSREN ILE. 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

; 


! 

1 

1 

! 

! 

' 

' 

1 

1 

1 

were passed to it by 
; FORMAL PARAMETERS: 
See LIBSRENAME_FILE for a description of al! parameters. 
; IMPLICIT INPUTS: 

; NONE 

: IMPLICIT OUTPUTS: 

; NONE 

: COMPLETION STATUS: 

; NONE 

SIDE EFFECTS: 

Renames a file 

' 


ay od 
_ 


p 3 
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ENAME _FILE penese one or more fi\es 
O_RENAME = Rename a file 
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VFN —OOONOUS UT 
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1 
1 
OLDNAM: REF SNAM_DECL ! NAM of OLDFAB 
OLDNAR_R: REF SNAM DECL, i NAM of OLDFAB_R 
NEWNAM: REF SNAM per i NAM of N a 
NE R: REF SNAM_DECL, i WAM of NEWF 
OLD_LOCAL_DSC: BLOCK (8, Byte}. i Local qseriies for old name 
NEW-LOCAL-DSC: BLOCK (8, BYTEI, | Local descriptor . new name 
OLD"STRING_PTR, i Pointer to old str 
NEW_STRING_PTR; i Pointer to new string 
BUILTIN 
° ! Ar rpuaent pointer 
CALLG; ! CALLG instruction 


'¢ 
a Set NAM addresses. 


OLDNAM = .OLDFAB CFABSL NAM); 
OLDNAM_R = weer eaten atte NAM); 
NEWNAM = .N FAB 

NEWNAM_R = .NEWFAB_R CFRBSL “NAMI; 


fs 


i Clear old statuses in FABs so that RENAME_ERROR can find the appropriate 
i FAB when an error occurs. We actually set the statuses to 1 for easy 


: testing. 

OLDFAB_R CFABSL_STS] = 1; 
NEWFAB CFABSL_STS) = 1; 
NEWFAB_R CFABSL_STS] = 1; 


' To make LIBSRENAME look just Like DCL RENAME, duplicate its 
! handling of version numbers. If the old filespec had a wildcard 

! version, or if V_NONEW VERSION was set, then use a default name of 
' *:«" for the first SPARSE of the new filespec. this will greserve 
! of version number. Otherwise use a null default name, which will 
' create the next highest version (if none was specified originally) 
or will use the specific version in the old filespec. 
i 
' 
' 
' 


i Since ¢ NEWFAB CFABSL_DNA) was initialized to the address of the string 


: we need to do is set the songen if it is to be used. 
$ i “we need do nothing since its leng 


4 acca CNAMSV_WILD_VER] OR .FLAGS CV_NONEW_VERSION] 
“NEUF AB CFABSB_DNS) = ZCHARCOUNT (';*#"); 


h is already zero! 


' 
' Call RMS to PARSE the new file name. We must do two perses 

! with OFP (output file parse) CLEAR, to copy ny and all tas" fett “Stank 
i in the new name from the old name (which n the related file block), 

' and the pecond. with OFP SET, to substitute any names which have been 

! explicitly wildcarded in the output name as these have been ignored 

! during the first parse. 


Kk 8 
tEBREMMELFILE Byaee e.g nar {itt IESE QUEISHS UMGULOMRSCTbABbA "Hess 8 


le 

- ad SPARSE (FAB=.NEWF AB) 

BEGIN 

CALLG (.AP, RENAME_ERROR); 

RETURN; 

END; 

+ 

OFP is set in NEWFAB_R, so do the second parse there. 
NEWFAB_R CFABSB_FNS] = .NEWNAM CNAM$B_ESLJ; 
IF NOT SPARSE (FAB=.NEWFAB_R) 

THEN 

4 

4 

& 


BEGIN 
CALLG (.AP, RENAME_ERROR); 
RETURN; 


1 
+H) END; 
088 
Ones * 
0886 Copy the resultant file names to the user's strings or our own. 
887 
0888 OLD_STRING_PTR = .OLD_RESULTANT_NAME; 
0889 IF [OLD_STRING_PTR NEGA 0 
0890 THEN 
0891 BEGIN 
9d LOCAL 
089 COPY_STATUS; 
0894 COPY_STATUS = LIBSSCOPY_R_DX (ZREF(.OLDNAM CNAMSB_RSLJ), 
0895 eOLDNAM CNAMSL_RSA], .OLD_RESULTANT_NAME); 
396 IF NOT .COPY_STATUS 
9 THEN 
4 BEGIN 
0 INTERCEP? FLAG CO) = 


peat tte debt bebe be tet totatatohatatatotee eee 


IIS SSES RE SES EES EEUU SSS USO ENS camer UR CSS OS ERORSS 


1: 
SIGNAL_STOP «.COPY_STATUS); 
RETURN; 


Sete ante 
-OLDRAM Enaaée RSL); 
=". OLDNAM CNAMSC_RSA); 


D CF ! Use our string 
Dd 


NEW_STRING PTR = .NEW RESULTANT _NAME; 
IF ;NEW.STRING_PTR NEGA 


oOo 


COPY_STATUS; 
COPY_STATUS = LIBSSCOPY_R_DX (ZREF(.NEWNAM_R CNAMSB_ESLJ), 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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IF .NEW_RESULTANT_NAME NEQA 0 
THEN 


BEGIN 
LOCAL 

COPY_STATUS 
COPY_ STATUS = = tiesscory 8 Dx cane 


NEWNAM_R ENAMSE._ RSLI), 
SA], .NEW T 


F(, 
ESULTANT _NAM 


; 3 920 »NEWNAM_R CNAMSL ESA], .NEW_RESULTANT_NAME) ; 

g 4 9 IF NOT -COPY_STATUS 

3 5 9 THEN 

3 $ 9 4 BEGIN 

$ 924 4 INTERCEPT_FLAG (0) = 

; 858 905 4 SIGN AL STOP (. COPY Status); 

; 859 9 § 4 RETUR 

; 860 9 END: 

; 861 9 8 END 

; £66 9 ELS 

; Bei 3 ? See TRING PTR = NEW_LOCAL_DSC 'y tri 

3 " = 5 . se our strin 
; 865 9 ¢ NEW-LOCAL_BSC pscse-brvPe] = §SC$K_DTYPE_T; ° 
3 He 9 NEW_LOCAL_DSC CDOSCSB_CLASSJ_ = DSCS$K"CLASS'S; 

; 86 934 NEW_LOCAL_DSC COSCSWILENGTH] = .NEWRAM_R CNAM$B_ESL]; 

; 868 09 5 NEW LOCAL-DSC CDSCS$A-POINTER] = .NEWMAR_R CNAMSC_ESAJ; 

; 870 09 $ 

; 871 b386 

3 13 \) it there is a CONFIRM_ROUTINE, ask it if it wants the file renamed. 
$ th Bee$ - Note use of linkage name BLISS to perform a general-routine-call. 
; 875 094 

; are O97 IF .CONFIRM_ROUTINE NEQA 0 

; 878 0945 IF NOT BLISS (.CONFIRM_ROUTINE, .OLD_STRING_PTR, .NEW_STRING_PTR, 
; 879 0946 -OLDFAB, .USER_ARG) 

; 880 0947 

; 881 0948 RETURN; 

; 88 0949 

; 88 0950 '¢ 

> 884 0951 ' Now set up OLDFAB_R and NEWFAB_R and do the SRENAME. 

: 885 3336 <7 

; 886 95 

3; 887 0954 OLDFAB_R ar try FNS) = aire cnanse RSLI; 

; 888 3332 iS R $B" FNS »-NEWNAM_R CNAMSB_ESL]; 

; 889 0 IF T- SRENARE TOLDFAB=.OLDFAB™ R. NEWFAB=. NEWF AB_R) 

; 890 oat 

; 891 958 BEGIN 

; 89 B228 CALLG (.AP, RENAME_ERROR); 

; 89 960 RETURN; 

; 894 961 END; 

; 895 368 

3 £36 96 + 

; 89 964 i We need a a new ‘‘new resultant he name’ string. Copy it to the 
: a38 0366 / user's string or reset our own 

: a9 
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IF NOT . wtOPT. STATUS 


. 
a 
o 
© 
o 
° 
o 
° 
. 
7 
e 
° 
2 
° 
e 
. 
o 
o 
o 


Pb 4 o_O 


IBSRENAME _FILE Rename one or more files e 4 :5 AX-11 Bliss-32 V4.0-74 Page 22 
“ DO_RENAME = Rename a file 18: oe 138 9}: 48: 3 LIBRTL.SRCJLI BRENAME. 832;1 ° (4) 
; 319 4 BEGIN 
3 11 4 INTERCEPT_FLAG (0) = 
; 31¢ 4 SIGNAL_STOP (.COPY Status); 

; 91 4 RETURN; 

3 ae END; 

3 15 END 

; 318 ELSE 

3 4 NEW_LOCAL_DSC CDSC$W_LENGTH] = .NEWNAM_R CNAMSB_RSLI; 

; 315 

; 920 '¢ 

: ; If there is a success routine, call it. 

: 9 

3 4 ¢ IF .SUCCESS_ROUTINE NEQA 0 

: 9 6 BLISS (.SMCCESS_ROUTINE, .OLD_STRING_PTR, .NEW_STRING_PTR, 
3 3 8 USER_ARG) ; 

: 4 3 RETURN; 

: 931 1 END; ! End of routine DO_RENAME 


-EXTRN SYSSRENAME 
O1FC 00000 DO_RENAME : 


«WORD Save R2,R3,R4,R5,R6,R7,RB : 0750 
58 000000006 00 9€ 00002 MOVAB SYSS$PARSE, R8& : 
57 000000006 00 9€ 00009 MOV LIBSSCOPY_R_DX, R7 : 
5E 14 ¢ 90010 SUBL2 #20, SP F 
20 04 AC 00 0001 MOVL OLDFAB, RO : 0823 
é 28 AO DO 00017 MOVL  40(RO). OLDNAM ; 
PH 18 AC DO 0001B MOVL OLDE AB. > 0824 
5 28 A2 DO O001F MOVL 40(Re) OLDNAM_R : 
50 14 AC DO 00023 MOVL NEW > 0825 
2? 28 AO 4 0027 MOVL 4 (RO), NEWNAM 3 
1 1¢ AC 00 00028 MOVL NEW AB‘R, RI + 0826 
54 28 «Al DO 000 F MOVL  40(R1)> NEWNAM_R F 
08 A2 ot D0 99 ; MOVL #1, 8(R2) : 0834 
8 Ao 1 D0 000 MOVL #1. B(RO) > 0835 
8 Al 01 00 00038 MOVL #1. B(R1) : 0836 
04 4 Ad 03 €£ 0 F BBS 8 2 (OLDNAM) 1$ : 0852 
04 20 AC £9 00044 BLBC = FLAGS : 
35 Ad 08 0 00048 1$ MOVB ff 5$(R0) : 0854 
DD 0004C 2$: PUSHL R + 0865 
68 gi FB 0 af CALLS gr $yssranse : 
g wc aS ‘ GOVE | NEGFAB : 0876 
34 AO 0B AS 8 8 MOVB mieten §2(RO) : 
50 DD D PUSHL : 0877 
68 Q1 F F CALLS , SYSSPARSE ; 
ooas $1 oooes BRU. ma a 
56 34 AC 09 4$: MOVL QLD _RESULTANT NAME. OLD_STRING_PTR > 0888 
19 1 6C BEQL : 0889 


nN 8 
ENAME_FILE Rename one or more files 16-Sep 4 75 AX-11 Bliss-32 V4.0-74 Page 23 
ett DO_RENAME = Rename a file 14-Sep =1382 93: }8: 3 LIBRTL.SRCJLIBRENAME .B32; 1 - i 
4 ac dO PUSHL OLD_RESULTANT_NAME : 0895 
Gg AS DD oF PUSHL 4(OCDNAM) : 
52 3 Ad 9A 00074 MOVZBL SCOLDNAMD R2 + 0894 
08 AE s po 78 OVL  R2, 8(SP) : 
08 AE F 0007C PUSHAB SP) : 
67 FB 7F CALLS #3, LIBSSCOPY_R_DX : 
me 2 FP booKs BLBSSOPY_STATUS, 6S : O99 
56 C AE 9E 00087 SS: MOVAB Lp LOCAL_DSC, OLD_STRING_PTR + 0906 
OE AE 01 F 8F BO 0008B MOVW #270, OLD-LOCAL_Dst+2 + 0907 
5 03 A3 9A 00091 MOVZBL 3(OLONAM); + 0909 
o¢ AE 5 80 0093 MOVW  R2, OLD_LOCAL ; 
1 AE 4 A3 00 0009 MOVL 4(OLDNAM) OLB Sbca L_DSC+4 + 0910 
5 8 Ac 09 O09 6$: MOVL  NEW_ RESULTANT _RAME, REW_STRING_PTR + 0913 
19 13 OOOA BEQL 83 ~ + 0914 
38 «6 AC OD DOA, PUSHL NEW RESULTANT _NAME + 0920 
0C A& DD 000A7 PUSHL 12(REWNAM_R) : 
53 0B A4 9A OOOAA MOV ZBL VT (NEWNAM=R) , R3 + 0919 
08 AE 53 D0 OOAE OVL  R3, 8(SP) : 
08 AE 9F 0008 PUSHAB 8(§P) : 
67 03 FB 00085 CALLS #3 LIBSSCOPY R_DX : 
19 50 €8 00088 BLBS roby _STATUS, 9$ > 0921 
6C 11 00088 7$ BRB 13$ ~ + 0924 
55 04 AE 9E 000BD 8$ MOVAB NEW LOCAL_DSC NEW, STRING. PTR + 0931 
06 AF 010€  8F B80 000C1 MOVW #270 NEW Loc AL + 0932 
5 0B A& 9A 00067 MOVZBL 11(NEWNAM”R), + 0934 
04 AE 53 BO 000¢B MOVW = R3, NEW A cat _DSC ; 
08 AE 0c Ad DO 000CF MOVL 12 (NEWNAM Re “NEW_LOCAL_DSC+4 + 0935 
2¢ «AC OS 99004 98: TSTL  CONFIRM_ROUTINE + 0943 
11 13 00007 BEQL 10$ F 
30 AC DD 00009 PUSHL USER_ARG + 0946 
04 AC DD 000DC PUSHL OLDFAB ; 
55 DD OOODF PUSHL NEW_STRING_ PTR + 0945 
56 DD 000E1 PUSHL OLD STRING-P : 
2c «BC 04 FB OO0ES CALLS #4, ~BCONT IRM, ROUTINE : 
62 0 £9 000E7 BLBC = RO, 168 ; 
51 18 AC DO QOOEA 10$: MOVL OLOFAB R, R1 > 0954 
34 «OAT 52 90 OOEE MOVB 2, S2tRi) : 
50 1C AC DO O00F MOVL NEW R, RO + 0955 
34 AO 53 (90 S006 OVB R3, 52tRO) ; 
50 pp OOFA PUSHL RO : 0956 
7E 7C OOOFC CLRQ. = =(SP) : 
51 DD OOOFE PUSHL 1 ; 
LL , N ; 
000000006 0 ; F CALLS a SYSSRENAME 
: . . a : 
0000v CF 6C FA 1 A 11$ CALLG (AP), RENAME_ERROR 0959 
38 aC D3 90110 12$: TSTL NEW. RESULTANT_NAME : 0968 
22 1 O113 BEQL 14$7 : 
38 AC DD 0011 PUSHL NEW_RESULTANT_NAME > 0974 
.* pD 118 PUSHL 4 (NEWNAM_R) ; 
08 AE 03 A 3A 128 MOV ZBL CNEWNAM R), 8(SP) : 0973 
67 o§ FB 1 CALLS #3 LIBSSCOPY,R Dx ; 
13 E8 00126 BLBS COPY STATUS, 15S : 097 
40 BC gi DO 00129 128: MOVL IN NTERCEPT “FLAG : 097 
0 DD 0012 PUSHL toby's : 0979 


8 9 
LIBSRENAME_FILE Rename one or more files 16-Sep- 1984 of £10: 50 AX-11 Bliss-32 V4.0-7 Page 24 LIE 
7-006 DO_RENAME = Rename a file la-Sep- 984 LIBRTL.SRCJLIBRENAME . 3 2:1 (4) 
000000006 00 01 FB 12° CALLS #1, LIBSSTOP : 
Q 1 $ RET + 0977 
04 AE 93 AG 137 14$: | MOVZBW 3(NEWNAM_R) NEW. LOCAL_DSC + 0984 
4 ac 05 0013c 15$: TSTL CESS_ROUTIN : 0991 
0B 13 0013F BEQL ; 
30 At dd 00141 PUSHL ARG + 0994 
DD 00144 PUSHL Neu. “stning. prR + 0993 
$ DD 146 PUSHL OLD-3! RING : 
24 +«BC FB 0014 CALLS “aSuCCESS,. ROUTINE 3 
04 0014C 168: RET + 0998 


; Routine Size: 333 bytes, Routine Base: _LIBSCODE + 0350 


G 
| IBSRENAME _F ILE Rename one or more files 16-Sep-1984 93:49:38 ae Bliss-32 V4.0-74 
006 RENAME ERROR = Report error during rename 14-Sep-1984 12:39:1 LIBRTL.SRCJLIBRENAME .B52;1 


; Bs 0999 1 XSBTTL "RERARS -£RROR = Report error during rename’ 

; 934 1 $9 1 ROUTINE REN ERROR ( 

; 955 1001 1 OLDFAB: REF SFAB_DECL, ' Next input file FAB 
; 9 1 8 1 UNUSED_1, ' Unused here 

3; 9 198 1 UNUSED_2, ' Unused here 

; 938 18 4 1 UNUSED_ ! Un here 

: 939 1005 1 EWFAB: REF $FAB_DECL i FAB for SPARSE 

: 940 1006 1 OLDFAB_R: REF $FAB_DECL, i Source for $RENAME 
; 941 1007 i NEWFAB_R: REF SFAB_DECL, ' Dest for SRENAME 

; 94 1008 1 UNUSED_4, ! Unused here 

: 94 1009 1 UNUSED 5, ! Unused here 

: 944 1919 1 ERROR_ROUTINE, ! Error routine address 
; 945 1011 1 NUSED_6, ' Unused here 

; 946 a 1 USER_ARG, ' User argument 

: 947 1015 1 OLD_RESULTANT_NAME: REF BLOCK f. BYTE), ! Old resultant filename 
; 948 1014 1 NEW_RESULTANT_NAME: REF BLOCK BYTE, ' New resultant filename 
> 949 1015 1 WORST ERROR: REF BLOCK (4 BYTE. i Worst error so far 
: 950 1016 1 INTERCEPT FLAG: REF VECTOR CL, LONG] i Intercept flag 

: «951 1017 1 ): NOVALUE = 

3 828 1018 1 

; 95 1019 1 !e¢ 

H 928 1930 } FUNCTIONAL DESCRIPTION: 

; 956 ose 1! This routine is called when LIBSFILE_SCAN detects an error. 

; 957 1023 1! It calls the user's error routine, if one exists. 

; 958 105¢ 1! If the user's error routine returns success, or if there is 

; 959 1025 1! no user error routine, processing of remaining files continues. 
; 960 1026 1! If the user's error routine returns failure, the error is 

; 961 1027 1! signalled. This signal is converted to the return status of 
; 96 1028 1! LIBSRENAME_FILE. 

; 96 1029 1! 

3; 964 1030 1 ! CALLING SEQUENCE: 

: 965 1031 1! 

; 966 1338 1! Called from LIBSFILE_ SCAN and DO_RENAME with the same arouments 
5 U4 a? : as passed to LIBSFILE_SCAN from CIBSRENAME_FILE. 

; 969 1035 1 ! FORMAL PARAMETERS: 

: 970 1936 1! 

; 3a) STA : See body of LIBSRENAME_FILE for descriptions of arguments. 

3; 97 1039 1 ! IMPLICIT INPUTS: 

3 974 1040 1! 

: 975 10461 1! NONE 

s oF 1966 1! 

3 97 1045 1 ! IMPLICIT OUTPUTS: 

: 978 1044 1! 

; 979 1045 1! NONE 

; 980 1966 1! 

; 981 1047 1 ! COMPLETION STATUS: 

; 98 1048 1! 

: 98 1049 1! NONE 

: 984 1050 1! 

; 985 1051 1 ! SIDE EFFECTS: 

; 3a6 1 26 1! 

; 98 1053 1! May signal the error 

3 oae 1054 1! 

; 98 1055 1 !-- 


1 SRENAME FILE Rename one or more files 
RENAME ERROR = Report error during rename 


BEGIN 


OCAL 
OLDFAB_PTR: R 
NEWFAB-PTR: R 
ERRFAB: REF $ 
ERROR_SOURCE, 


rrr 


. < 


S3323328833 
SEBSEESS 


’ 9 
VenSep-1986 12:59:19 EC TaRTL SRESLTORENAME 692; 


Pointer to OLDFAB with error 
Pointer to yh hee with error 
Pointer to FAB with statuses 
Code ~- logicetes source of 
error: = file scan error 

1 = $PARSE error 

2 = $RENAME error 
Local descriptor for old name 
Local descriptor for new name 
Pointer to old string 
Pointer to new string 


See if it's the error from 


! Indicate RENAME error 


s 1 

: 1 

5 1 

: 1 

8 1 

: 1 

3 1 

: 1 

fy i 

: 1001 1 OLD_LOCAL_DSC: BLOCK (8, BYTE], 

: 1908 1966 NEW_LOCAL_DSC: BLOCK at eyed 

; 1908 1069 OLD-STRING_PTR, 

31 1070 NEW-STRING_PTR: 

; 1005 1903 

; 1908 1 es + 

: 100 107 ! Find out which OLDFAB and NEWFAB has the error. 
: 1008 1074 te 

; 1009 1075 

; 1010 1076 IF NOT .OLDFAB CFABSL_STSJ 

: 1011 1077 THEN 

; 1Ol6 1078 BEGIN 

3; 101 1079 ‘+ 

: 1014 1080 ! Error from LIBSFILE_SCAN. 

3; 1015 1081 t= 

: 1016 1986 LOCAL 

3 1017 108 NAM: REF SNAM_DECL; ' NAM block 
; 1018 1084 

3; 1019 1085 ERRFAB = .OLDFAB; 

: 1020 1086 OLDFAB_PTR = .OLDFAB; 

; 1021 1087 NEWFAB-PTR = .NEWFAB: 

: 10 5 1088 NAM = ;NEWFAB PTR fFABSL NAM); 

3 10 1089 NAM f $8_RSC) = 0; T Just use FNM field in NEWFAB 
3; 1024 1090 NAM CNAMSB_ESLJ = 0; 

: 1025 1091 ERROR_SOURTE = 0; ! Indicate error finding file 
3; 1026 1936 

3: 1027 109 ELSE 

3; 1028 1094 '¢ 

: 1029 1095 ' It's not an error from LIBSFILE_SCAN. 
: 10 1996 ! one of the SPARSEs or the SRENARE. 
3; 1031 109 te 

; 1036 1098 IF NOT .OLDFAB_R CFABSL_STS) 

3 1937 1 THEN 

3 7 1100 BEGIN 

3; 1035 1101 '¢ 

: 10 11 § ' It's the SRENAME. 

3 8 11 !e 

3: 1 11 ERRFAB = .OLDFAB_R; 

: 105 1105 OLDFAB_PTR = .OLDFAB_R; 

3; 1040 11 NEWFAB_ PTR = “Yom 

> 1041 11 ERROR_SOURCE = 2; 

:y ¢ 1198 N 

3 1 11 ELSE IF NOT .NEWFAB CFABSL_STS] 

3: 10446 1110 THEN 

: 1045 1111 BEGIN 

3: 1046 1112 


rae 
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3 } 7 1333 ! It's the first SPARSE. : 
31 ; 1115 ERRFAB = .NEWFAB; ‘ 
: 1 1116 OLDFAB_PTR = .OLDFAB; : 
: 1051 111 NEWFAB_PTR = -NEWFAB; : 
: 18 ¢ 1118 ERROR_SOURCE = 1; ! Indicate SPARSE error ; 
3; (1 111 ND 5 
3; 1054 1120 ELSE : 
; 1055 1121 BEGIN ; 
: 7 : 11 ¢ + ; 
3 132 1 ? Must be the second SPARSE. ° 
; 1988 1125 ERRFAB = .NEWFAB _R; : 
; 1060 11 $ OLDFAB_PTR = .OLDFAB; : 
3; 1061 11 NEWFAB_ PTR = .NEWFAB_R; ; 
3 See 1128 ERROR_SOURCE = 1; ! Indicate SPARSE error ; 
: 106 1129 END; . 
; 1064 1130 ; 
: 1065 1131 '¢ ; 
; 1066 11 ¢ ! Call COPY _RESULTANT_NAME to copy the resultant name strings into either : 
3; 1067 11 ! the user's strings or our own. : 
3; 1068 1134 !- ° 
3; 1069 1135 : 
3; 1070 11 OLD_STRING PTR = COPY RESULTANT NAME (.OLDFAB_PTR, OLD_LOCAL_DSC, ’ 
; 1071 1137 A RESULTANT _NAME, .INTERTEPT FLAG); ‘ 
: 1076 1138 NEW_STRING PTR = COPY_RESULTANT NAME (.NEWFAB_PTR, NEW_LOCAL_DSC, : 
; 107 1139 -NEW_RESULTANT_NAME, .INTERTEPT_FLAG); 3 
: 1074 1140 3 
3; 1075 1141 '+ ; 
: 1076 1336 ! If a user error routine has been specified, call it with arguments F 
3; 1077 114 ' of the filename, STS, STV, error source, and user argument. If it returns F 
3; 1078 1144 ' failure, de yp the error. Set WORST ERROR to LIB$_ERRROUCAL so : 
: 1079 1145 ' that our caller can tell that ERROR_ROUTINE was calTed. 3 
; 1080 1146 !< 3 
3; 1081 1147 3 
; Hs 1148 IF .ERROR_ROUTINE NEQA 0 s 
: 108 1149 THEN 3 
3: 1084 1150 BEGIN ; 
: 1085 1151 IF NOT BLISS (.ERROR_ROUTINE, .OLD_STRING_PTR, .NEW_STRING_PTR, : 
: 1086 1138 ERRFAB CFABSL_STSJ, ERRFAB CFABSL_STVI, : 
: 108 115 ERROR_SOURCE ,~ .USER_ARG) ; 
: 1088 1154 N 3 
; 1089 1155 4 BEGIN 3 
: 1090 11238 4 INTERCEPT FLAG (0) = 1; ! Cause handler to intercept signal : 
3; 1091 1157 4 SIGNAL_STOP (.ERRFAB CFABSL_STS iF ; 
3 1936 1158 4 ; ; 
3 1 1159 END; 3 
31 1160 WORST_ERROR (0,0,32,0] = LIB$_ERRROUCAL; ; 
: 1095 1161 ND 3 
3:1 1196 ELSE F 
31 116 BEGIN 3 
: 1098 1164 '¢ : 

3; 1099 1165 ! If this error is worse than ory previous errors, store it in 

: 1100 1106 ' WORST_ERROR. (Use GEQU so that the initial zero gets replaced if 

3: 1101 116 ! the error is a warning.) 

3 1106 1168 le 

3; 110 1169 
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IBSRENAME_FILE Rename one or more files 16-Sep-1984 01:10:5 AX-11 Bliss-32 V4.0-74 P 8 
cet RENAME ERROR = Report error during rename 1 30-1384 93:49:79 LIBRTL.SRCJLIBRENAME .852; 1 88 3 
:11 117 IF .BLOCK CERRFAB CFABSL_STS], STSSV_SEVERITY:4, BYTE] GEQU 
; 1 5 nt . y MORST_ERROR CSTS$v_SEVERITY] ~~ 
: 11 1198 WORST_ERROR (0,0,32,0] = .ERRFAB CFABSL_STS); 
: 11 8 1174 ND; 
3 11 1175 
: 1110 1176 RETURN; 
: 1111 117 
: 1112 1178 END; ! End of routine RENAME_ERROR 
001C 00000 RENAME_ERROR: 
«WORD Saye R2,R3,R4 : 1000 
5E 14 C3 000 SUBL2 #20, SP : 
1 04 aC DO 0000 MOVL OLDEAB. R1 + 1076 
18 08 Al €E8 00009 BLBS (R1), 1$ : 
52 51 DO 0000D MOVL R1, ERRFAB + 1085 
54 51 06 01 MOVL 1, OLDFAB_ PTR + 1086 
53 14 AC DO 0001 MOVL NE WE AB NEQFAB_PTR + 1087 
50 38 A3 DO 0001 MOVL § 40(NEWFAB_PTR)> NAM + 1088 
AO 94 0001B CLRB = 3(NAM) + 1089 
0B AO 94 OO01E CLRB ss: 11 (NAM) + 1090 
$f D4 00 1 CLRL — ERROR_SOURCE + 1091 
11 00023 BRB 4$ : 1076 
50 18 AC 00 00025 1$ MOVL OLDFAB_R RO : 1098 
OF 08° AO E8 00029 BLBS (RO), 2$ ; 
2 50 D0 00020 MOVL RO, ERRFAB + 1104 
54 50 00 000 9 MOVL RO, OLDFAB._PTR + 1105 
53 1¢ 6©AC (DO One MOVL os R, NEWFAB_PTR : 1106 
bE 02 dO 00037 MOVL #2, ERROR_SOURCE + 1107 
1E 11 OOO3A BRB : 1098 
54 51 D0 0003C 2$ MOVL 1, OLDFAB_PTR + 1116 
6E 01 DO 0003F MOVL #1, ERROR SOURCE : 1118 
50 14 AC 00 00042 MOVL NEWFAB, : 1109 
08 08 a0 eg 90046 BLBS  8(RO), 3$ : 
2¢ 50 DO O004A MOVL RO, ERRFAB : 1115 
oy 50 00 90040 MOVL RO, NEWFAB_PTR : 1117 
08 11 0005 BRB 4$ + 1109 
52 1¢ 6AC OO 9005 3$ MOVL #$NEWFAB_R, ERRFAB + 1125 
5 1¢ AC DO 0005 MOVL § NEWFAB-R, NEWFAB_PTR : 1127 
40 aC DD D034 4$ PUSHL INTERCEPT_FLAG : 1137 
34 AC DD D PUSHL OLD_RESULTANT_NAME ; 
14 AE OF 00 PUSHAB OLD7LOCAL > 1136 
4 DD 0006 PUSHL OLDFAB PT : 
0000v cf 4 FB 0065 CALLS #4, COPY_RESULTANT_NAME F 
4 0 DO 0006A MOVL RO, OLD STRING_PTR ; 
40 AC DD $0 PUSHL INTERCEPT FLA : 1139 
38 AC BD ' PUSHL NEW_RESULTANT_NAME : 
0c AF F 0007 PUSHAB NEW"LOC > 1138 
DD 4 PUSHL NEWFAB PT ; 
0000v CF Rm 7 CALLS #4, COPY RESULTANT_NAME ; 
28 AC b 7D ist ERROR_ROOT INE > 1148 
30 AC dD boss PUSHL USER_ARG > 1153 
Sa ei ar li rie enn dt Re tt aa oa -— 
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4 AE OF PUSHAB ERROR_S SOURCE 3 1152 
f Ad 9F PUSHAB 12(ERRFAB) : 
Ao OF PUSHAB 8(ERRFAB) ; 
2 DD PUSHL NEW STRING. prR : 
4 DD PUSHL OLD“STRING-P : 
28 «BC 06 FB 9 CALLS #6, “GERROR- ROUTINE : 
OF E BLBS ~—RO, : 
40 BC 01 DO MOVL #1, @INTERCEPT_FLAG : 1156 
08 A2 DD 0009D PUSHL 8 (ERRFAB) + 1157 
000000006 00 01 FB OAQ CALLS #1, LIBSSTOP om 
3C BC 000000006 BF B0 OOAB 5$: MOVL #LIBS_ERRROUCAL, @WORST_ERROR : 1160 
50 3c Cs«wBE 03 00 EF 00081 6S: EXTZv #0, 3. @WORST_ERROR, RO + 1171 
50 08 A2 0 00 FD 2080 CMPZ7V #0 B(ERRFAB), RO : 
5 1F 0008D BLSSU : 
3c BE 08 A2 00 000BF MOVL §§ 8(ERRFAB), @WORST_ERROR > 1173 
04 000c4 7$: RET 3; 1178 


; Routine Size: 197 bytes, Routine Base: _LIBSCODE + 0490 
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1 ZSBTTL *COPY_RESULTANT_NAME = Copy resultant filename’ 
ROUTINE COPY _RESULTANT_NAME ( 


v4.0- 
E 


-32 74 
LIBRENAME .852; 1 


_ 
a" 
~ 
~o 


FAB: REF ~$FAB_DECL ' FAB of error 
LOCAL DSC: REF BLOCK C, BYTE] i Qur local descriptor 
RESULTANT_NAME: REF BLOCK C, BYTE) i Caller's string 
INTERCEPT FLAG: REF VECTOR C, LONGI i Intercept flag 

= 


lo 


i FUNCTIONAL DESCRIPTION: 


This routine is called from — ERROR to copy the resultant 
file name (or best approximation) fo either the user's string 


<0 .0.00.000000000000000000 
—o 


OWONAOVEWN —“OOONOULS wry 


or our own. 
i CALLING SEQUENCE: 


string _ptr.wa.v = COPY RESULTANT _NAME (FAB.rr.r, LOCAL_DSC.waq.r, 
CRESULTANT_NAME .wt.dxJ, INTERCEPT_FLAG.wl.r) 


i FORMAL PARAMETERS: 


woowonovowvono 


FAB - The FAB referencing the name we want. 


LOCAL_DSC - The descriptor which will get filled in with 
a class S, type T descriptor of the string. 


' 
' 
' 
' 
' 
' 
! 
] 
, 
! 
1 
! 
t 
' 
' 
' 
] 
i 
RESULTANT_NAME = The user's string, if any. 
INTERCEPT_FLAG = The flag which we will set if we want to ptqnet 
] 
i] 
‘ 
' 
‘ 
' 
] 
' 
' 
i] 
! 
' 
4 
‘ 
‘ 
1 
' 
. 


oe Sa 


DWDONAOULSWN—"OOONOu 


an error so that RENAME_HANDLER will catch 

i IMPLICIT INPUTS: 

NONE 
i IMPLICIT OUTPUTS: 

NONE 
i FUNCTION VALUE: 

The address of the user's string, if present, else LOCAL_DSC. 
i SIDE EFFECTS: 

May signal an error 


ke ed ed ed ed md od SOOO 


POIPIPIPOPIPIPIPIPIPIPIPINPIPOPIPIPINPIPIPINYDYD 2 ot ot = tt ot 


BEGIN 
LOCAL 
NAM: REF S$NAM_DECL, ' RMS NAM 
STRING_PTR ' Pointer to the string to use 
COPY_STATUS; i Status from LIBSSCOP 


Be Se Be Be Be Se Se Se Se Se Se Ge Se Ge Fe Se Ge Ge Se Ge Fe Ge Ge Ge Ge Ge Ge SF Ge Fe Ge Ge FH Se Fe Se Se Se Se SH Se Se Se Se Ge SF Se Se Se Se Se Se Se Ss Se Sees 
ee ee ee ee ee ee ce ed ee ee ee ee ee ce ee ce ee ee el ee ed ce ae ce a ce ee ee ce ee ee el ce ce ae el ee ce ee el ee eld el ce ee ee 
NAAAPAPAAAAAASWIINMIVVIVIVILN w IAPOTOROPOPOROPUTUTOR 2 es 
SSIES SSNS UFUN AS SHNSEGRGW LESSEE UNSSSSVSORONLS Sawer 


ee ee ee ee ee ee eS SY 


PROPOPONOPONONY 2 tt tt tt 


RoPonononoNoNononononononony 
EAA AAI AIP PIPONIPONNINNINY 
MEWN —OOONOULSWN Oo 
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Page 30 
’ (6) 


- 


\! ENAME FILE Rename one or more files 
COPY _RESULTANT_NAME = Copy resultant filename 


IF .STRING_PTR NEQA 0 
THEN 


BEGIN 
COPY STATUS = LIBSSCOPY_DXDX (.LOCAL_DSC, .RESULTANT_NAME) ; 
Ht wor -COPY_STATUS 


BEGIN 
INTERCEPT FLAG (0) = 1; ! Cause handler to intercept signal 
SIGNAL_STOP (.COPY_STATUS); 
Ah -STRING_PTR; ! Won't get executed 
eEND ; 
STRING_PTR = .LOCAL_DSC; ! Use our own string 
RETURN .STRING_PTR; ! Return pointer to string 


END; ! End of routine COPY_RESULTANT_NAME 


ELS 


3 1171 1 $ rs 
: 11% : : Set NAM to point to the NAM block. Fill in LOCAL_DSC. 

: 1174 1 § NAM = .FAB CFABSL_NAM): 

: 1175 124 LOCAL_DSC pos _BTYPE) = DSCS$K_DTYPE_T; 

; 1176 4 LOCAL-DSC CDSCS$B-CLASS] = DSCSK“CLASS“S: 

: 117 124 IF .NAM CNAM$B_RSL] NEQ IR ? 

1179 m THEW RSL] NEQ 0 esultant filename present 

> 1181 1 LOCAL_DSC [DSCS$W_LENGTH] = .NAM CNAMSB_RSLI:; 

iM ; LOCAL DSC DSCSA_POINTER] = .NAM CNAMSC_RSA; 

11 1 ELSE IF .NAM CNAM NEQ ? 
i ¢ Q Theh CNAM$B_ESL] NEQ 0 Expanded filename present 
: 1187 1 z LOCAL_DSC CDSC$W_LENGTH] = .NAM CNAMSB_ESL): 

1188 1253 LOCAL DSC DSCSA_POINTER] = .NAM CNAMSC_ESA); 

3 + : 5 ne igs ' Use filename from FAB 

: 1198 1 5 LOCAL_DSC [DSC$W_LENGTH) = .FAB CFABSB_FNS); 

: 119 1258 LOCAL-DSC CDSCSA~POINTER] = .FAB CFABSC_FNA); 

+ 1194 1259 ND; 

thee 156 ; 

; '¢ 

; 1137 ; § } If the user has specified RESULTANT_NAME, copy the filename to it. 
: 1199 1264 : 

3 00 5 STRING PTR = .RESULTANT_NAME; 

31 1 

3 3 1 

3 3 1 

s 1 1 

3 1 1 

3 1 1 

3 1 | 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3 7 1 

3, 3 1 

3 1 1 

s 7 1 

3 3 1 

3 1 1 


090909 09 SIN NINN SN NAA AAAAAAAAUMIUINIUIUIUIVIVIW 
sooo RUNS oe we & s Sao 


ROPPOPIPINIPIMOPSPONINI PIPPI PoNoNoNy 
ed dd td od ed td OOO OOOCOOCOO 
Wwrn—o 


POPINIUNIWIUE B 


0004 00000 COPY_RESULTANT_NAME : 


3 9 AS pp gone OWL FABE RR 


9 
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; COPY_RESULTANT_NAME = Copy resultant filename 1 ~$007 1388 93:49:39 LIBRTL.SRC CTSRENAME 682: 1 . & 
51 8 ac D A MOVL  LOCAL_DSC, R1 : 1240 

02 Al ore BF p mMOVW #970 Sith : 
Ad isis ie + 1263 
61 3A 19 mOV BW (NAM), (R1) ‘1 46 
046 Al 4 oA p 1 MOVL (NAM), 4(R1) + 124 
1 BRB $ t 1243 
0B AO 9 1$ TSTB 1 (NAM) t 1249 

0B 1 7 BEQL $ : 
61 08 AO 9 9 MOVZBW 11(NAM), (R1) 31 52 
046 Al ¢ A p i »> 4(R1) : $3 
61 4 Ag 9 28 MOVZBW (R2), (R1) : 1257 
046 Al C A2 D VL 44¢R2), 4(R1) : 1258 
52 C ac OD 3$: MOVL RESULTANT NAME. STRING_PTR + 1265 
1€ 1 a BEQL 4 ; 1266 
0c aC DD 0004 PUSHL RESULTANT _NAME > 126 

51 DD D046 PUSHL R F 

000000006 09 98 re 4 CALLS #2, LIBSSCOPY_DxDx : 
1 EB 0004F BLBS § COPY_STATUS, 5$ + 1270 
10 BC 01 00 0005 MOVL #1, SINTERCEPT_FLAG : 1278 
50 DD 905 PUSHL COPY + 1274 

000000006 00 01 Fe 005 CALLS #1, CIBS$STOP : 
03 11 0005F BRB 5$ : 1275 
52 1 DO 00061 4$: MOVL R1, STRING_PTR + 1279 
5 52 b0 0064 5$: MOVL § STRING_PTR> RO + 1281 
4 00067 RET : 1283 


; Routine Size: 104 bytes, Routine Base: _LIBSCODE + 0562 
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sit RENAME HANDLER = Local condition handler 12288871388 93:48:78 YTaRTL- RESLISRENAME 882; 1 7 Ps 

3 3 ° 1 1 ZSBTTL FEA AOL ER = Local condition handler’ 3 
: 1 1 1 ROUTINE RENAME-HANDLER ( ; 
3:1 § 1 1 SIGNAL-ARGS: REF BLOCK C, BYTE), ! Signal arguments array ; 
71 1 1 MECH_ARGS: REF BLOCK BYTE. i Mechanism arguments array ; 
; i a ENABCE_ARGS: REF VECTOR CL, LONG) i Enable arguments array : 
:4 é 1 1 3 
3 3 1 1 [+4 $ 
; } 3 : ; FUNCTIONAL DESCRIPTION: ; 
:1 1 1 i This is the condition handler enabled by LIBSRENAME_FILE. ; 
; 1231 1 1: If this is not an unwind, and if the INTERCEPT_FLAG enable H 
3 1 ¢ 1 ,: argument is set, then L16$S1G_TO_RET s called to convert the : 
3 : : : signal to a return status. : 
i 1239 1699 1 { CALLING SEQUENCE: ; 
31 1 1/ status.wic.v = RENAME_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra ; 
: ! : ! ! , ENABLE_ARGS.rl.ra) : 
: 1¢40 1304 1 | FORMAL PARAMETERS: F 
: ; : : SIGNAL _ARGS = The signal argument List. 3 
; i re) MECH_ARGS - The mechanism argument List. ; 
3 1246 1 1/ ENABLE _ARGS - The enable argument List. The one enable ; 
$ ise : : argument is the address of INTERCEPT_FLAG; : 
> 1249 1 1} IMPLICIT INPUTS: ; 
3; 1250 1 1 } : 
3: 1251 1 1; NONE ; 
3 ¥ 26 1 1} : 
3: 125 1 1 ! IMPLICIT OUTPUTS: : 
3: 1254 1 1! : 
3; 1255 1 7! NONE ‘ 
: 1 2$ 1 1! : 
: 125 1 1 ! ROUTINE VALUE: : 
3; 1258 1 1! : 
3; 1259 1 1! SS$_RESIGNAL : 
3 1260 1 1: ; 
3 1261 1 1 ! SIDE EFFECTS: : 
3 7 o¢ 1 1! ; 
: 126 1 1! May cause an unwind. ‘ 
3: 1264 1 1! : 
i: 1268 1369 J in : 
; e BEGIN ; 
31 $ 1 BUILTIN : 
3; 1270 1 . : acpunent pointer 3 
3: 1271 1 CALLG; ! CALLG instruction 3 
We OE : 
> 1274 1 i Determine if this is an unwind. If not, then if INTERCEPT_FLAG ; 
: ! Le ! is set, turn this signal into an unwind. : 


ee ee ee ee ee ee oe ee ee ae ee ee ee eee ee Ege 


i! yet, ces RENAME SANDLER"? Local's condition handler 18500-1944 9}: 48: 3 a fartee Sh tit ibetNAne 682: 1 


; i ‘3 JF SIGNAL_ARGS CCHFSL_SIG_NAME] NEQU SS$_UNWIND 

: \ : } rf: {f 9g, EMABLE_ARGS C1) ! Is INTERCEPT_FLAG set? 

: } § i 48 CALLG (.AP, LIBS$SIG_TO_RET); ! Convert signal to return status 
: i ¢ 1 rk} RETURN SS$_RESIGNAL; ! Resignal error 

3 1 1350 END; ! End of routine RENAME_HANDLER 


0000 00000 RENAME _HANDLER: 
ORD 


oW Save nothing $ 1983 
50 04 AC 00 000 MOVL SIGNAL ARGS RO + 1342 
00000920 = &F 4 Ad 01 000 CMPL 4(RO), #2336 : 
OF 13 O00E BEQL =s«1$ F 
50 0c AC 00 0001 MOVL ENABLE ARGS. RO 3: 1344 
07 04 BO €E9 00014 BLBC @4(RO); ) ; 
000000006 00 6C FA 00018 CALLG (AP), LIB$SIG_TO_RET + 1346 
50 0918 8F 3C OOOIF 1$ MOVZWL #2328, RO + 1348 
04 00024 RET + 1350 


; Routine Size: 37 bytes, Routine Base: _LIBSCODE + OSCA 


; 1287 1351 1 


\! SRENAME_FILE Rename one or more files 


RENAME HANDLER = Local c¢ 


condition handler 


PSECT SUMMARY 


1289 1 1 END 
HR 
1291 1354 0 ELUDOM 
Name Bytes 
_LIBSCODE 151 
Library 
File 
_$255$DUA28:£S LIBISTARLET .L32;1 
“$255$DUA28 Bittl OBJIRTLLIB.L32;1 


9 
19-8 gens AX-11 Oi iss -32 v4.0 


1386 9}: 48: 3 LIBRTL.SRC) LIBRENAME . B82: 31 
! End of module LIBSRENAME_F ILE 


-EXTRN LIBSSTOP 


Attributes 
9 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Statistics 
eccesese Synbols eooeee-- Pages Processing 
Total Loaded Percent Mapped Time 
9776 79 0 581 00:00.7 
36 2 5 8 00:00.1 


COMMAND QUALIFIERS 


FESS PENS CHALE FOLD, SNE T IAG LPT EE ETRE AS FOG ESS oh, ORENANE POR IORE IS Ch SOMEONE MSRC$:LIBRENAME /UPDATE=(ENH$:L IBRENAME 


Size: 1517 code + 2 data bytes 
ty Time 00:24.1 


Elapsed Teer 01:30.3 
Lines/CPU Min: 369 
ponennes Sema) 44856 
Memor cy Us 283 goges 
Compi otien Complete 


$$$ $$ ——————— LL 


ION 
RY 


020 AH-BT13A-SE | L EQUIPMENT CORPORAT 
be VAX/VMS V4.0 | ENTIAL AND PROPRIETA 


